home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / print select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  166 lines
  1. 10 gosub285
  2. 15 b=198
  3. 20 bl$="                                       ":gosub 25:goto35
  4. 25 open15,8,15,"i0":close15:open2,8,2,"$":forx=0to156:get#2,a$:next
  5. 30 get#2,a$:si=val(a$):close2:return
  6. 35 poke53281,.:poke53280,5
  7. 40 :
  8. 45 gosub 500
  9. 46 ifx=1 then pa=4:sa=7:c8%=-1:goto80
  10. 47 ifx=2 then pa=6:sa=0:goto80
  11. 48 ifx=3 then pa=4:sa=7:goto80
  12. 50 ifx=5 then 600
  13. 54 :
  14. 55 print"[147][154]             [195][213][211][212][207][205] [208][210][201][206][212][197][210]"
  15. 56 print"             [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  16. 60 print"[208]lease enter the correct information forthe printer you are using."
  17. 65 print"[155]     [207][208][197][206] # , [208][210][201][205][193][210][217] , [211][197][195][207][206][196][193][210][217]
  18. 70 [153]"cont(NULL)lease enter the (NULL)(NULL)right$(NULL)atn(NULL)(NULL)closeaddress :";:[141]700:pa[178][197](a$):
  19. 75 [153]"contclrenter the (NULL)vallen(NULL)(NULL)str$atn(NULL)(NULL) address :"; :[141]700:sa[178][197](a$)
  20. 80 [151]53280,6:[151]53281,6:[153]"load             len(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL)"
  21. 81 [153]"             print#tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  22. 85 :
  23. 86 [153]"           cont (NULL)(NULL)val(NULL) # ,print#"pa"cont,print#"sa
  24. 90 [153]"          print(NULL)rimary address ofprint#"pa"cmdcont."
  25. 95 [153]"         def(NULL)econdary address ofprint#"sa"cmdcont."
  26. 100 :
  27. 105 [153]"            right$s (NULL)his lenorrect?"
  28. 110 [153]"           cont(NULL)open)conteslist, cont(NULL)open)conto list(NULL)(NULL) cont(NULL)open)contuit":[151]198,.
  29. 115 [161]a$:[139]a$[178]""[167]115
  30. 120 [139]a$[179][177]"y"[175]a$[179][177]"n"[175]a$[179][177]"q"[167]115
  31. 125 :
  32. 130 [139]a$[178]"q"[167]245
  33. 135 [139]a$[178]"n"[167]40
  34. 140 [137]216
  35. 145 :
  36. 150 [153]"":[129]x[178]0[164]20:[153]bl$:[130]
  37. 155 [153]"    (NULL)lease insert (NULL)right$str$val"ag"of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  38. 160 [153]"     in the drive and press (NULL)val(NULL)(NULL)(NULL)(NULL)"
  39. 165 [153]"     when you are ready to continue."
  40. 170 [153]"          ((NULL)ress (NULL) to (NULL)uit)"
  41. 175 [161]a$:[139]a$[178]"q"[167]280
  42. 176 [139]a$[179][177][199](13) [167] 175
  43. 180 [141] 25:[139]ag[178]si[167]195
  44. 185 [153]"":[129]x[178]1[164]20:[153]bl$:[130]
  45. 190 [153]"(NULL)ide"ag"not found...":[129]dl[178]1[164]2000:[130]:[137]150
  46. 195 [141]325
  47. 200 [153]"   (NULL)rint file is now on this side"
  48. 205 [153]"            of the disk."
  49. 210 [153]" (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) when ready to continue."
  50. 211 [161]a$:[139]a$[179][177][199](13) [167] 211
  51. 215 [142]
  52. 216 [151]53280,6:[151]53281,6:[153]"load"
  53. 217 [153]"   (NULL)ow a (NULL)val(NULL)(NULL) message will be sent to"
  54. 218 [153]"  your printer.  (NULL)atn(NULL)val (NULL)(NULL)(NULL)val (NULL)left$valclose(NULL)(NULL)right$(NULL)(NULL)val(NULL)"
  55. 219 [153]"      right$(NULL) (NULL)(NULL)-(NULL)right$(NULL)val atn(NULL)str$ (NULL)(NULL)(NULL)chr$chr$valstr$ right$(NULL)."
  56. 220 [153]" (NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) when ready to continue."
  57. 221 [161]a$:[139]a$[179][177][199](13) [167] 221
  58. 222 [159]15,pa,15:[160]15:[139]st[179][177]0 [167] 231
  59. 223 [159]4,pa,sa:[152]4,[199](13)[199](13)[199](13)
  60. 224 [129]x[178]1[164]80:[152]4,".";:[130]:[152]4
  61. 225 [152]4,[199](13)[163]30)"(NULL)elcome (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)!":[152]4:[160]4
  62. 226 [153]"load  str$o you which to return to the menu?"
  63. 228 [161]a$:[139]a$[179][177]"y"[175]a$[179][177]"n"[167]228
  64. 229 [139]a$[178]"y" [167] 45
  65. 230 [139] a$[178]"n" [167] 239
  66. 231 [153]"load sys (NULL)he (NULL)rinter was (NULL)(NULL)(NULL) str$val(NULL)vallen(NULL)valstr$.  (NULL)his"
  67. 232 [153]"  can be from it not being plugged in"
  68. 233 [153]"    or an inproper printer setup."
  69. 234 [153]" (NULL)ould you like to try the (NULL)val(NULL)(NULL) again?"
  70. 235 [161]a$:[139]a$[178]""[167] 235
  71. 236 [139] a$[178]"y"[167] 216
  72. 237 [139] a$[178]"n"[167] 226
  73. 238 [137] 235
  74. 239 [129]ag[178]1[164]3:[141]150:[130]ag
  75. 240 :
  76. 245 [153]"":[129]x[178]0[164]20:[153]bl$:[130]
  77. 250 [153]""
  78. 255 [153]"   (NULL)lease place side 3 of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  79. 260 [153]"   in the drive and press (NULL)val(NULL)(NULL)(NULL)(NULL)."
  80. 265 [161]a$:[139]a$[179][177][199](13)[167]265
  81. 266 [151]53281,6:[151]53280,6
  82. 267 [153]"load       (NULL)lease (NULL)ait (NULL)hile (NULL)oading..."
  83. 268 [151]646,[194](53281)
  84. 270 [159]15,8,15,"r0:custom ls boot=custom ls boot":[132]15,er:[160]15
  85. 275 [139]er[179][177]63[167]245
  86. 280 [147]"custom ls boot",8
  87. 285 cr$[178][199](13)
  88. 290 [159]15,8,15
  89. 295 [159]3,8,4,"setup"
  90. 300 [132]3,d$(1),d$(2),d$(3),d$(4),d$(5),d$(6),d$(7)
  91. 305 [160]3
  92. 310 [160]15
  93. 315 pa[178][197](d$(4)):sa[178][197](d$(5))
  94. 320 [142]
  95. 325 [160]15:[159]15,8,15
  96. 330 d$(4)[178][202]([196](pa),2)
  97. 335 d$(5)[178][202]([196](sa),2)
  98. 340 [159]3,8,4,"setup":cr$[178][199](13)
  99. 345 [152]15,"p"[199](0)"";
  100. 350 [152]3,d$(1)cr$d$(2)cr$d$(3)cr$d$(4)cr$d$(5)cr$d$(6)cr$d$(7)cr$
  101. 355 [160]3
  102. 360 [160]15
  103. 365 [142]
  104. 370 [153]"on  contatnre you sure you want to quit? ((NULL)cont/(NULL)cont)":[151]198,.
  105. 375 a[178][194](203):[139]a[179][177]25[175]a[179][177]39[167]375
  106. 380 [139]a[178]39[167][153]"on                                      on":[142]
  107. 385 [137]245
  108. 500 [151]53281,241:[151]53280,254
  109. 501 [153]"load"
  110. 502 [153]" stopor{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}^"
  111. 503 mm$[178]" (NULL)                                    (NULL)":[153]mm$
  112. 504 [153]" (NULL)    (NULL)hich (NULL)rinter peekest str$escribes    stop(NULL)"
  113. 505 [153]" (NULL)       (NULL)he (NULL)rinter (NULL)ou (NULL)se?         stop(NULL)"
  114. 506 [129]a[178]1[164]15
  115. 507 [153]mm$
  116. 508 [130]
  117. 509 [153]" {$7d}   clrUse Your CRSR clrKeys To Move The   stop{$7d}"
  118. 510 [153]" {$7d}  cont SELECTOR BOX listwaitrnd clrand press RETURN  stop{$7d}"
  119. 511 [153]" {$7d}   listnewnewnewnewnewnewnewnewnewnewnewnewnewwaitcos                   stop{$7d}"
  120. 512 [153]" /{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}exp"
  121. 513 [153]"";
  122. 514 a$(1)[178]"  len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 1525 (NULL)r lenommpatable  "
  123. 515 a$(2)[178]"         len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 1520          "
  124. 516 a$(3)[178]"         len(NULL)(NULL)(NULL)(NULL)str$(NULL)(NULL)val 1515          "
  125. 517 a$(4)[178]"          (NULL)(NULL)left$val(NULL) (NULL)(NULL)right$(NULL)(NULL)val(NULL)          "
  126. 518 a$(5)[178]"           *  (NULL)(NULL)right$(NULL)  *            "
  127. 519 s$[178]   "                                   "
  128. 520 p$[178]""
  129. 521 [153]p$;:[129]x[178]1 [164] 5
  130. 522 [153]a$(x)[199](13)s$
  131. 523 [130]:x[178]1:[141]524:[137]527
  132. 524 pt$[178]"cont"[170]a$(x)[170]"waitlistrnd"
  133. 525 pt$[178]pt$[170][199](13)[170]"listlognewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewwaitcos"
  134. 526 [142]
  135. 527 [153]p$pt$
  136. 528 [161]a$:[139]a$[178]""[167]528
  137. 529 [139]a$[178]""[175]x[179]5 [167] a[178]1:[137] 533
  138. 530 [139]a$[178]"on"[175]x[177]1 [167] a[178][171]1:[137] 533
  139. 531 [139]a$[178][199](13) [167] 538
  140. 532 [137] 528
  141. 533 [153]p$"stop"a$(x)" "[199](13)s$
  142. 534 [139]a[178]1 [167] p$[178]p$[170]""
  143. 535 [139]a[179]1 [167] p$[178][200](p$,[195](p$)[171]2)
  144. 536 x[178]x[170]a:[141] 524
  145. 537 [137] 527
  146. 538 [142]
  147. 600 [153]""
  148. 601 [153]"                      print#
  149. 602 print" [196]o you wish to quit? [151] [146]
  150. 603 [153]"                      poke wait
  151. 604 print"       [217])es [207]r [206])o    [151] [146]
  152. 605 [153]"                      poke wait
  153. 607 print"[151]                      [146]
  154. 608 [161]a$:[139]a$[178]""[167]608
  155. 610 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] [151]53280,6:[151]53281,6:[153]"load":[137]245
  156. 611 [139]a$[178]"n"[176]a$[178]"(NULL)"[167] 45
  157. 612 [137] 608
  158. 700 a$[178]"":[129]x[178]1[164]3
  159. 701 [161]b$:[139]b$[178]""[167]701
  160. 702 [139]b$[178][199](20)[175]x[178]1[167]701
  161. 703 [139]b$[178][199](20)[167]x[178]x[171]1:[153]b$"tocmd";:a$[178][200](a$,x[171]1):[137]701
  162. 704 [139]b$[178][199](13) [167] [153]" ":[142]
  163. 705 [139]b$[179]"0"[176]b$[177]"9"[167] 701
  164. 706 [139]x[178]2 [167] 701
  165. 710 a$[178]a$[170]b$:[153]b$"tocmd";:[130]
  166.